home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / fun / hide-buffer < prev    next >
Encoding:
Text File  |  1996-09-27  |  1.7 KB  |  65 lines
  1. @if-using not(ocl-file-hide-buffer)
  2.    @use (ocl-file-hide-buffer)
  3.    ( defvar ( layout-saved restore-full-shift ) )
  4.    ;OCL{{{}}}
  5.    ;OCL{{{  push-layout
  6.    ( deffun push-buffer-layout
  7.       ( if =(0 layout-saved) ( save-buffer-layout ) fi
  8.         set layout-saved +(layout-saved 1)
  9.       )
  10.    )
  11.    ;OCL}}}
  12.    ;OCL{{{  pop-layout
  13.    ( deffun pop-buffer-layout
  14.       ( set layout-saved -(layout-saved 1)
  15.         if =(0 layout-saved) ( restore-buffer-layout ) fi
  16.       )
  17.    )
  18.    ;OCL}}}
  19.    ;OCL{{{  open-hidden-dummy-buffer
  20.    ( deffun ( do-full-shift ) open-hidden-dummy-buffer
  21.       ( screen-off
  22.         set restore-full-shift delete-mode-full-shift
  23.         delete-mode-full-shift
  24.         if ocl-argument
  25.          ( set restore-full-shift add-mode-full-shift )
  26.         fi
  27.         push-buffer-layout
  28.         if do-full-shift
  29.          ( add-mode-full-shift )
  30.         fi
  31.         local
  32.          ( modify-behaviour )
  33.          ( set modify-behaviour -2
  34.            open-buffer
  35.          )
  36.         delete-mode-view
  37.         delete-mode-overwrite
  38.      )
  39.    )
  40.    ;OCL}}}
  41.    ;OCL{{{  leave-hidden-dummy-buffer
  42.    ( deffun (old-buff-id) leave-hidden-dummy-buffer
  43.       ( set-file-unchanged
  44.         exit-buffer
  45.         goto-buffer-id old-buff-id
  46.         pop-buffer-layout
  47.         insert-ascii restore-full-shift
  48.         screen-on
  49.         redraw-display
  50.       )
  51.    )
  52.    ;OCL}}}
  53.    ;OCL{{{  abort-hook-add
  54.    @if-using not(ABORT-HOOK-ADD)
  55.       @use (ABORT-HOOK-ADD)
  56.       ( defmac abort-hook-add ( ) )
  57.    @fi
  58.    ( defmac abort-hook-add-saved ( abort-hook-add ) )
  59.    ( undeclare ( abort-hook-add ) )
  60.    ( defmac abort-hook-add ( abort-hook-add-saved set layout-saved 0 ) )
  61.    ( undeclare ( abort-hook-add-saved ) )
  62.    ;OCL}}}
  63.    ( undeclare ( layout-saved restore-full-shift ) )
  64. @fi
  65.